home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / drivers / printers / Shell Printer Drivers.src.lnx / PetASCII (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  1999-06-16  |  1.7 KB  |  51 lines
  1. pETascii
  2. prg FORMATTED geos FILE v1.0
  3. wRITE iMAGE v2.0
  4. GEOwRITE    v2.1
  5. .sOURCE CODE FOR TEXT PART OF sHELL pRINTER dRIVERS FOR cOMMODORE TYPE PRINTERS.
  6. .INCLUDEsHELLzERO
  7. .PSECT
  8. @tEXTaDDR
  9. @RsTARTtE
  10. JSRoPENcHANNEL
  11. LDX#MbEGINtEXT
  12. BNEcONTtEXT
  13. @RpRINTtE
  14. JSRoPENcHANNEL
  15. 50$LDY#0
  16. LDA(R0),Y
  17. BEQeXITtEXT
  18. 60$INCR0
  19. BNE70$
  20. INCR0+1
  21. 70$CMP#cr
  22. BEQ80$
  23. CMP#lf
  24. BNE90$
  25. 80$LDX#MtEXTlINEfEED
  26. JSRsENDmESSAGE
  27. BVC50$
  28. 90$CMP#$41
  29. BCC110$
  30. CMP#$7B
  31. BCS110$
  32. CMP#$60
  33. BEQ110$
  34. 100$EOR#$20
  35. CMP#$7B
  36. BCS100$
  37. 110$JSRsENDbYTE
  38. BVC50$
  39. @RsTOPtEX
  40. JSRoPENcHANNEL
  41. LDX#MeNDtEXT
  42. @cONTtEXT
  43. JSRsENDmESSAGE
  44. @eXITtEXT
  45. JSRcLOSEcHANNEL
  46. LDX#0
  47. hgeos PRINT pETascii TEXT FILE
  48. pAGE: page
  49. pRINTED ON: dateaT: timefILE: pETascii
  50. -----------------------------------------------------------------------------------------------
  51.